home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon / OberonV4 / system / PrinterDriver.Mod (.txt) < prev    next >
Oberon Text  |  1995-10-30  |  2KB  |  31 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Syntax10i.Scn.Fnt
  4. MODULE PrinterDriver;    (* JS 13.10.94, SHML 12 Jul 95 *)
  5.     IMPORT Texts, Oberon;
  6.         res*: INTEGER; err*: BOOLEAN; errMsg*, f*: ARRAY 32 OF CHAR;
  7.         Open*: PROCEDURE(VAR name, user: ARRAY OF CHAR; password: LONGINT);
  8.         UseListFont*: PROCEDURE(VAR name: ARRAY OF CHAR);
  9.         ReplConst*: PROCEDURE(x, y, w, h: INTEGER);
  10.         ContString*: PROCEDURE(VAR s, fname: ARRAY OF CHAR);
  11.         String*: PROCEDURE(x, y: INTEGER; VAR s, fname: ARRAY OF CHAR);
  12.         ReplPattern*: PROCEDURE(x, y, w, h, col: INTEGER);
  13.         Picture*: PROCEDURE(x, y, w, h, mode: INTEGER; adr: LONGINT);
  14.         Circle*: PROCEDURE(x0, y0, r: INTEGER);
  15.         Ellipse*: PROCEDURE(x0, y0, a, b: INTEGER);
  16.         Line*: PROCEDURE(x0, y0, x1, y1: INTEGER);
  17.         UseColor*: PROCEDURE(red, green, blue: INTEGER);
  18.         Spline*: PROCEDURE(x0, y0, n, open: INTEGER; VAR X, Y: ARRAY OF INTEGER);
  19.         Page*: PROCEDURE(nofcopies: INTEGER);
  20.         Close*: PROCEDURE;
  21.         wr: Texts.Writer;
  22.     PROCEDURE Error*(s0, s1: ARRAY OF CHAR);
  23.     BEGIN
  24.         COPY(s0, errMsg); COPY(s1, f);
  25.         Texts.WriteString(wr, s0); Texts.Write(wr, " "); Texts.WriteString(wr, s1);    (*<<*)
  26.         Texts.WriteLn(wr); Texts.Append(Oberon.Log, wr.buf);    (*<<*)
  27.         err := TRUE; res := 1
  28.     END Error;
  29. BEGIN Texts.OpenWriter(wr); err := FALSE
  30. END PrinterDriver.
  31.